home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / grafix / boards / cybergfx4043.lha / cybershare / CyberGfx_Install < prev    next >
Encoding:
Text File  |  1995-02-23  |  38.2 KB  |  1,188 lines
  1. ;******************************************************************************** 
  2. ;
  3. ;CyberGraphics Install By Robert Reiswig ©1995 If you wish to use parts
  4. ;you MUST ask!! (For use with CygerGraphics Only!)  Feb-22-95
  5. ;For Frank Mariak : CyberGraphics!
  6. ;
  7. ;Installer suggestions or problems: rcr@netcom.com
  8. ;Thanks to ScottE for the EGS Dirs - Thanks to Flam for Spectrum Install testing! 
  9. ;
  10. ;********************************************************************************
  11.  
  12.  
  13. ;******************************************************************************** 
  14. ;
  15. ; Read All System information 
  16. ;
  17. ;********************************************************************************
  18. (set #PAY 0) ; 0=NO 1=YES 
  19. (set cpu (database "cpu"))
  20. (set vblank (database "vblank"))
  21. (set graphmem (database "graphics-mem"))
  22. (set totmem (database "total-mem"))
  23. (set osver (/ (getversion "LIBS:version.library") 65536))
  24. (if (= vblank "60") ((set blank "NTSC")) ((set blank "PAL")))
  25. (set fastmem (- totmem graphmem))
  26.  
  27. ( if (= osver 37) ( (set workbench "2.0")) ( if (= osver 38) ( (set workbench "2.1"))
  28. ( if (= osver 39) ( (set workbench "3.0")) ( if (= osver 40) ( (set workbench "3.1"))
  29. ( if (= osver 41) ( (set workbench "4.0")) )))))
  30.  
  31. (run "type >RAM:Cyber SYS:Expansion/village.library.info opt h")
  32. (set runstring (cat "search" " RAM:Cyber "))
  33.  
  34. (set runstring1 (cat runstring "\"R=64\""))   (if (= (run runstring1) 0) (set MonitorIS 64))      
  35. (set runstring1 (cat runstring "\"R=57\""))   (if (= (run runstring1) 0) (set MonitorIS 57))
  36. (set runstring1 (cat runstring "\"R=48\""))   (if (= (run runstring1) 0) (set MonitorIS 48))
  37. (set runstring1 (cat runstring "\"R=38\""))   (if (= (run runstring1) 0) (set MonitorIS 38))
  38. (set runstring1 (cat runstring "\"R=35\""))   (if (= (run runstring1) 0) (set MonitorIS 35))
  39. (set runstring1 (cat runstring "\"R=15\""))   (if (= (run runstring1) 0) (set MonitorIS 15))
  40. (set runstring1 (cat runstring "\"CUSTOM\"")) (if (= (run runstring1) 0) (set MonitorIS 99))    
  41.  
  42.  
  43. (run "type >RAM:lan EnvArc:sys/locale.prefs opt h")
  44. (set runstring (cat "search" " RAM:lan "))
  45.  
  46. (set english "")  (set german  "")
  47.  
  48. (set runstring1 (cat runstring "\"deutschland\""))   (if (= (run runstring1) 0) (set german1 "Deutsch"))
  49. (set runstring1 (cat runstring "\"english\""))   (if (= (run runstring1) 0) (set english1 "English"))      
  50.  
  51. ;******************************************************************************** 
  52. ;
  53. ;ASK DEFAULT LANG
  54. ;
  55. ;********************************************************************************
  56.  
  57.  
  58. (set #langQuestion (cat "The following were found in Locale:\n\n" english1 "\n"german1"\n\nSelect one of the installers supported Languages."))
  59.  
  60. (set LAN  (askchoice (choices "German (Deutsch)" "English"
  61.              (prompt #langQuestion)
  62.                      (help "Select a Language")
  63.                    (default lang)
  64.                  )
  65.           )
  66. )
  67.  
  68.  
  69.  
  70.  
  71. ;******************************************************************************** 
  72. ;
  73. ;English Information
  74. ;
  75. ;********************************************************************************
  76.  
  77.  
  78. (set #ThankYou (cat "\nWelcome to the Registered version of the Cybergraphics "
  79.                     "installer!\n\n\nTHANK YOU"
  80.                )
  81. )
  82.  
  83. (set #By (cat "Cybergraphics Software by:\n\nFrank Mariak\nfmariak@chaosengine.ping.de"
  84.               "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de"
  85.               "\n\n\nInstaller By:\n Robert Reiswig - rcr@netcom.com"
  86.          )
  87. )
  88.  
  89.  
  90.  
  91.  
  92.  
  93. (set #MinReqOS (cat "The following are the MINIMUM REQUIREMENTS!\n"
  94.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  95.                     "Kickstart 3.x, **You only have " workbench "**\n\n" 
  96.                     "PicassoII in linear mode *not segmented*\n\n"
  97.                     "68020 or higher\n\n"
  98.                     "2 MB of fast memory"                       
  99.                ) 
  100. )
  101.  
  102.  
  103. (set #MinReqCp (cat "The following are the MINIMUM REQUIREMENTS!\n"
  104.                     "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  105.                     "68020 or higher, **You only have " cpu "**\n\n"
  106.                     "PicassoII in linear mode *not segmented*\n\n"
  107.                     "Kickstart 3.x\n\n"                     
  108.                     "2 MB of fast memory" 
  109.                )
  110. )  
  111.  
  112.  
  113. (set #SysInfo (cat "Basic System Check, This Machine Has\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  114.                    " \"" workbench "\" Version of OS\n\n"
  115.                    " \"" cpu "\" Processor\n\n "
  116.                    " \"" blank "\" Machine\n\n"
  117.                    " \"" graphmem  "\" Total Free Chip Memory\n\n"
  118.                    " \"" fastmem  "\" Total Free Fast Memory\n\n  \"" totmem "\" Total Free Memory\n\n"
  119.               )
  120. )
  121.  
  122.  
  123. (set #WillInstall "\n\n\n\nThis installer will Move OR Delete the Current Graphic Boards's Drivers.  Please read the Docs if you have any question!\n")
  124.  
  125.  
  126. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  127.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  128.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  129.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  130.                           "YOU MUST DO THIS NOW!"
  131.                      )
  132. )
  133.  
  134.  
  135. (set #BackUpFiles "BackUp the Files")
  136. (set #DeleteFiles "Delete the Files")
  137. (set #ask-BackOrDelete "The Installer will Back up the Current Boards System software.")
  138.  
  139.  
  140. (set #YES-ADPRO "Yes - Install ADPro Saver")
  141. (set #NO-ADPRO "No - Don't Install ADPro Saver")
  142. (set #ask-ADPRO "Do you wish to install the CyBERgraphics ADPro saver?")
  143. (set #where-ADPRO "Where do you wish to Install the ADPro Saver?\n(The default is \"ADPRO:Savers2\")")
  144.  
  145. (set #YES-MC4D "Yes - Install MaxonCinema4D display module")
  146. (set #NO-MC4D "No - Don't Install MaxonCinema4D display module")
  147. (set #ask-MC4D "Do you wish to install the MaxonCinema4D display module?")
  148. (set #where-MC4D "Where do you wish to Install the MaxonCinema4D display module?\n(The default is \"libs:\")")
  149.  
  150. (set #YES-PHOTOW "Yes - Install PhotoworX display module")
  151. (set #NO-PHOTOW "No - Don't Install PhotoworX display module")
  152. (set #ask-PHOTOW "Do you wish to install the PhotoworX display module?")
  153. (set #where-PHOTOW "Where do you wish to Install the PhotoworX display module?\n(The default is \"work:\")")
  154.  
  155. (set #YES-PHOTOG "Yes - Install Photogenics saver module")
  156. (set #NO-PHOTOG "No - Don't Install Photogenics saver module")
  157. (set #ask-PHOTOG "Do you wish to install the Photogenics saver module?")
  158. (set #where-PHOTOG "Where do you wish to Install the Photogenics saver module?\n(The default is \"work:\")")
  159.  
  160. (set #YES-REAL "Yes - Install Real3D display module")
  161. (set #NO-REAL "No - Don't Install Real3D display module")
  162. (set #ask-REAL "Do you wish to install the Real3D display module?")
  163. (set #where-REAL "Where do you wish to Install the Real3D display module?\n(The default is \"libs:\")")
  164.  
  165. (set #YES-IFX "Yes - Install ImageFX Render module")
  166. (set #NO-IFX "No - Don't Install ImageFX Render module")
  167. (set #ask-IFX "Do you wish to install the ImageFX Render module?")
  168. (set #where-IFX "Where do you wish to Install the ImageFX Render module?\n(The default is \"ImageFX:Modules/Render\")")
  169.  
  170.  
  171. (set #ask-MODEFILE "Which modefile should be installed ?")
  172. (set #15KHZ "15khz maximum")
  173. (set #31KHZ "31khz maximum")
  174. (set #35KHZ "35khz maximum")
  175. (set #38KHZ "38khz maximum")
  176. (set #48KHZ "48khz maximum")
  177. (set #57KHZ "57khz maximum")
  178. (set #64KHZ "64khz maximum")
  179.  
  180.  
  181. (set #wishtoinstall "Do you wish to install any of the following?")
  182. (set #order "Order Form")
  183. (set #guide "AmigaGuide File")
  184. (set #devdocs  "Developer Documentation")
  185. (set #versions "Versions - Shows Vers of Cybergraphics") 
  186. (set #WhereStuffDir "Please select where you wish to put them.\n(A directory called \"CyberGraphics\" will be created there!)")
  187.  
  188. (set #Comming (cat "\nCOMING! (Planned Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  189.                    "15/16/24 bit extension of the "normal" graphics.library, that means that "
  190.                    "you can open 24bit screens as standard intuition screens and that you "
  191.                    "can use all graphics.library functions on them as before. (with some "
  192.                    "limitations of course because of the missing color lookup table)\n\n"
  193.                    "Application to adjust the monitor parameters"
  194.               )  
  195. )
  196.    
  197.  
  198.  
  199. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  200.                    "As a registered user, you will get the latest registered "
  201.                    "release of cybergraphics including a personalized graphics board driver.\n\n"
  202.                    "The first update of the graphics board driver is for free, any forthcoming "
  203.                    "update will cost DM 5 (US$ 5 outside EU) just to pay our posting&packaging "
  204.                    "costs. email updates will be charge free. This offer is valid for registered users only of course."
  205.               )
  206. )
  207.  
  208.  
  209.  
  210. (set #REGtext (cat "LAST INFO\n~~~~~~~~~~~~~\n"
  211.                "You can reach us at the following address:\n"
  212.                "          Frank Mariak       Thomas Sontowski        \n"
  213.                "        Klosterstr. 7      Bensberger Marktweg 15\n"
  214.                "        44135 Dortmund     51069 Köln            \n\n\n"
  215.                "Feel free to contact us by email or smail if you have any questions."
  216.           )
  217. )
  218.  
  219.  
  220.  
  221. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  222.                         "* In the Shareware release there are no custom modes available. "
  223.                         "In the registered version there are no limitations of this kind "
  224.                         "of course. You may define higher colordepth and refresh frequencies.\n"
  225.                         "* There is only an AdPro driver in the shareware package. "
  226.                         "There also exist drivers for Maxon Cinema 4D, Real3D, Photogenics, "
  227.                         "PhotoWorx, AmaxIV ... more to come.\n"
  228.                         "* If you are registered we grant support if you have any problems "
  229.                         "or questions by email and/or smail. We can't do this for any person who "
  230.                         "has problems with the unregistered release !\n"
  231.                    )
  232. )
  233.  
  234.  
  235.  
  236. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  237.                   "By setting this variable, the planar-to-chunky conversion "
  238.                   "will be done by the CPU (in contrast to the blitter-conversion) "
  239.                   "Therefore the ugly-looking "planar" blitting-effects are gone, "
  240.                   "but the software-conversion is slower. Do you wish to Enable this feature?"
  241.              )
  242. )
  243.   
  244.  
  245. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  246.                      "By setting this variable, the Lores-Sprites on non-AA-machines "
  247.                      "become Hires-sprites (they are no longer doubled by "
  248.                      "the cybergraphics-Software). "
  249.                      "This variable is identical to the tooltype HIRESSPRITE "
  250.                      "of older Picasso-monitor files."
  251.                 )
  252. )
  253.   
  254.  
  255. (set #ask-driver (cat "Select The Driver(s) you wish to install."))
  256.  
  257.  
  258.  
  259. (set #board (cat "\nPlease Select the Graphics Board you wish to install Cybergraphics for:\n"))
  260.  
  261.  
  262. (set #CyberREG (cat "Do you have a Registered version of CyberGraphics installed? If you DO, the installer will NOT copy over the Monitor file! You must answer this Correctly!"))
  263. (set #firstTime "First time install")
  264. (set #PDInstalled "PD version Installed")
  265. (set #REGInstalled "Registrated version Installed")
  266.  
  267.  
  268.  
  269.  
  270.  
  271.  
  272.  
  273. ;******************************************************************************** 
  274. ;
  275. ;German Information
  276. ;
  277. ;********************************************************************************
  278.  
  279. (if (= LAN 0)
  280. (
  281.  
  282. (set #ThankYou (cat "\nWillkommen zur registrierten Version des Cybergraphics "
  283.                     "Installationsprogramms!\n\n\nVIELEN DANK"
  284.                )
  285. )
  286.  
  287. (set #By (cat "Cybergraphics Software von:\n\nFrank Mariak\nfmariak@chaosengine.ping.de"
  288.               "\n\n&\n\nThomas G.Sontowski\nmarvin@sub.ph-cip.uni-koeln.de"
  289.               "\n\n\nInstallerskript von:\n Robert Reiswig - rcr@netcom.com"
  290.          )
  291. )
  292.  
  293. (set #MinReqOS (cat "Folgendes sind die Minimalanforderungen !\n"
  294.               "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  295.                   "Kickstart 3.x, **Sie haben nur " Workbench "**\n\n"
  296.                   "PicassoII im linear Modus *nicht segmentiert*\n\n"
  297.                   "68020 oder höher\n\n"
  298.                   "2 MB FAST Ram"
  299.              )
  300. )
  301.  
  302. (set #MinReqCP  (cat "Folgendes sind die Minimalanforderungen!\n"
  303.                    "~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n\n"
  304.                    "68020 oder höher, **Sie haben nur eine " cpu "**\n\n"
  305.                    "PicassoII im linear Modus *nicht segmentiert*\n\n"
  306.                    "Kickstart 3.x\n\n"
  307.                    "2 MB FAST Ram"
  308.               )
  309. )
  310.  
  311.  
  312. (set #SysInfo (cat "Minimaler System Check, Dieser Rechner hat\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  313.                    " Version \"" Workbench "\" des OS\n\n"
  314.                    " \"" cpu "\" Prozessor\n\n "
  315.                    " \"" blank "\" Gerät\n\n"
  316.                    " \"" graphmem  "\" freier Chip Speicher\n\n"
  317.                    " \"" fastmem  "\" freies Fast RAM\n\n  \"" totmem "\" freies RAM gesamt\n\n"
  318.               )
  319. )
  320.  
  321.  
  322. (set #WillInstall "\n\n\n\nDieses Installerskript sichert oder löscht die aktuellen Grafikkarten Treiber.  Bitte lesen sie die Guidedatei bei Fragen!\n")
  323.  
  324.  
  325. (set #NeedChangeTool (cat "Currently your 'village.library'\n-The monitor file-\nis set to: "
  326.                           MonitorIS "kHz\n\nIt must be set to 'Custom'!\nYou must first use the PicassoMode program\n"
  327.                           "that came with your Picasso II to create a custom monitorfile. Then you need to change " 
  328.                           "the tooltype to CUSTOM. Please read the Docs for PicassoMode to do this!!!\n\n"
  329.                           "YOU MUST DO THIS NOW!"
  330.                      )
  331. )
  332.  
  333. (set #board (cat "\nBitte wählen Sie das Grafikboard, für das Sie Cybergraphics installieren wollen:\n"))
  334.  
  335.  
  336. (set #ask-driver (cat "Bitte wählen Sie die zu installierenden Treiber."))
  337.  
  338. (set #CyberREG (cat "Haben Sie bereits eine registrierte Version von CyberGraphics installiert ? Wenn das so ist , ersetzt das Installerskript den vorhandenen Monitortreiber nicht! Sie müssen diese Frage korrekt beantworten!"))
  339. (set #firstTime "Erstinstallation")
  340. (set #PDInstalled "PD Version installiert")
  341. (set #REGInstalled "Registrierte Version installiert")
  342.  
  343. (set #BackUpFiles "Sichern der alten Dateien")
  344. (set #DeleteFiles "Löschen der alten Dateien")
  345. (set #ask-BackOrDelete "Der Installer sichert die Village Tronic Picasso II Dateien in SYS:Storage/Village oder SYS:Storage/EGS für EGS Karten. Was wollen sie tun?")
  346.  
  347.  
  348. (set #YES-ADPRO "Ja - Installiere ADPro Saver")
  349. (set #NO-ADPRO "Nein - Installiere ADPro Saver nicht")
  350. (set #ask-ADPRO "Wollen Sie den CyBERgraphics ADPro saver installieren ?")
  351. (set #where-ADPRO "Wohin wollen Sie den ADPro Saver installieren ?\n(Default ist \"ADPRO:Savers2\")")
  352.  
  353.  
  354. (set #YES-MC4D "Ja - Installiere MaxonCinema4D Treiber")
  355. (set #NO-MC4D "Nein - Installiere MaxonCinema4D Treiber nicht")
  356. (set #ask-MC4D "Wollen Sie den MaxonCinema4D Treiber installieren ?")
  357. (set #where-MC4D "Wohin wollen Sie den MaxonCinema4D Treiber installieren ?\n(Default ist \"libs:\")")
  358.  
  359. (set #YES-PHOTOW "Ja - Installiere PhotoworX Treiber")
  360. (set #NO-PHOTOW "Nein - Installiere PhotoworX Treiber nicht")
  361. (set #ask-PHOTOW "Wollen Sie den PhotoworX Treiber installieren ?")
  362. (set #where-PHOTOW "Wohin wollen Sie den PhotoworX Treiber installieren ?\n(Default ist \"work:\")")
  363.  
  364. (set #YES-PHOTOG "Ja - Installiere Photogenics Saver")
  365. (set #NO-PHOTOG "Nein - Installiere Photogenics Saver nicht")
  366. (set #ask-PHOTOG "Wollen Sie den Photogenics Saver installieren ?")
  367. (set #where-PHOTOG "Wohin wollen Sie den Photogenics Treiber installieren ?\n(Default ist \"work:\")")
  368.  
  369.  
  370. (set #YES-REAL "Ja - Installiere Real3D Treiber")
  371. (set #NO-REAL "Nein - Installiere Real3D Treiber nicht")
  372. (set #ask-REAL "Wollen Sie den Real3D Treiber installieren ?")
  373. (set #where-REAL "Wohin wollen Sie den Real3D Treiber installieren ?\n(Default ist \"libs:\")")
  374.  
  375. (set #ask-MODEFILE "Welche Mode-Definitionsdatei soll aktiviert werden ?")
  376. (set #15KHZ "Definition mit 15khz max. HFrequenz")
  377. (set #31KHZ "Definition mit 31khz max. HFrequenz")
  378. (set #57KHZ "Definition mit 57khz max. HFrequenz")
  379. (set #64KHZ "Definition mit 64khz max. HFrequenz")
  380.  
  381. (set #wishtoinstall "Wollen Sie folgende Dateien installieren ?")
  382. (set #order "Bestellformular")
  383. (set #guide "AmigaGuide Datei")
  384. (set #devdocs  "Entwickler Dokumentation")
  385. (set #versions "Versions - Zeigt die CyberGFX Versionen") 
  386. (set #WhereStuffDir "Bitte wählen sie einen Zielpfad.\n(Ein Verzeichnis \"CyberGraphics\" wird automatisch erstellt!)")
  387.  
  388. (set #Comming (cat "\nCOMING! (Geplante Features)\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  389.                    "* 15/16/24 bit Erweiterung der "normalen" graphics.library, das bedeutet, daß "
  390.                    "man 24bit Bildschirme als Standard Intuition Bildschirme öffnen kann und "
  391.                    "das alle graphics.library Funktionen wie zuvor darauf benutzt werden können "
  392.                    "(mit Einschränkungen wegen der fehlenden Farbtabelle)\n\n"
  393.                    "* Ein Monitor Modes Edit Tool"
  394.               )  
  395. )
  396.    
  397. (set #YES-IFX "Ja - Installiere ImageFX Rendermodul")
  398. (set #NO-IFX "Nein - Installiere ImageFX Rendermodul nicht!")
  399. (set #ask-IFX "Wollen Sie das ImageFX Rendermodul installieren?")
  400. (set #where-IFX "Wo wollen Sie das ImageFX Rendermodul installieren?\n(Default ist \"ImageFX:Modules/Render\")")
  401.  
  402.  
  403. (set #Updates (cat "Updates\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  404.             "Als registrierter Anwender erhalten Sie die neueste Version von "
  405.             "cybergraphics mit einem auf sie persönlich registrierten Grafikkarten "
  406.             "Treiber. Neu erscheinende Versionen der cybergraphics libraries "
  407.             "und tools werden weiterhin über elektronische Netze veröffentlicht "
  408.             "und können dann auch direkt von Ihnen ohne Einschränkungen genutzt "
  409.             "werden. Neue Versionen des Grafikkarten Treibers werden Ihnen "
  410.             "persönlich zugestellt (per smail bzw. email)\n"
  411.             "Das erste Update des Grafikkarten Treibers bekommen Sie kostenlos "
  412.             "zugestellt, alle weiteren werden Ihnen gegen einen Unkostenbeitrag von "
  413.             "DM 5 (US$ 5 außerhalb der EU) umgehend zugestellt, falls sie den Postweg "
  414.             "wünschen (email-Zusendung bleibt kostenfrei) "
  415.             "Dieses Angebot gilt selbstverständlich nur für registrierte Benutzer.\n"
  416.               )
  417. )
  418.  
  419.  
  420. (set #REGtext   (cat"Letzte Info\n~~~~~~~~~~~~~\n"
  421.                      " Bei Fragen wenden Sie sich an:\n\n"
  422.                      "     Frank Mariak       Thomas Sontowski        \n"
  423.                      "      Klosterstr. 7      Bensberger Marktweg 15\n"
  424.                      "      44135 Dortmund     51069 Köln            \n\n\n"
  425.                      "Bei Anregungen & Verbesserungsvorschläge können Sie uns gerne per Post oder email kontaktieren."
  426.                  )
  427.  
  428. )
  429.  
  430.  
  431.  
  432.  
  433. (set #Restrictions (cat "RESTRICTIONS\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  434.                         "* Im Shareware release sind keine Custom Modes verfügbar. "
  435.                         "In der registrierten Version sind diese Beschränkungen natürlich nicht. "
  436.                         "Dort können höhere Farbtiefen und Refreshfrequenzen verwendet werden..\n"
  437.                         "* Nur der ADPro 2.5 Treiber ist im Shareware release verfügbar. "
  438.                         "In der Vollversion gibt es auch Treiber für Maxon Cinema 4D, Real3D, Photogenics, "
  439.                         "PhotoWorx, AmaxIV ... mehr werden folgen.\n"
  440.                    )
  441. )
  442.  
  443.  
  444.  
  445. (set #cpup2c (cat "CPUP2C\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  446.                   "Wenn Sie diese Variable setzen, wird die Planar-nach-Chunky Konvertierung "
  447.                   "von der CPU erledigt (im Gegensatz zur Blitter-Konvertierung) "
  448.                   "Damit sind die teilweise merkwürdig aussehenden "planar" Bliteffekte verschwunden, "
  449.                   "aber die CPU-Konvertierung ist langsamer. Wollen Sie diese Möglichkeit aktivieren ?"
  450.              )
  451. )
  452.   
  453.  
  454. (set #hirescrsr (cat "HIRESCRSR\n~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~\n"
  455.                      "Wenn diese Variable aktiviert ist, werden Lores-Sprites auf nicht-AGA-Geräten "
  456.                      "zu Hires-sprites (Sie werden nicht mehr von der cybergraphics Software "
  457.                      "verdoppelt). "
  458.                      "(Diese Variable ist identisch mit dem Tooltype HIRESSPRITE "
  459.                      "in der alten Picasso software)."
  460.                 )
  461. )
  462.  
  463.  
  464. )
  465.  
  466. )
  467.  
  468.  
  469.  
  470. ;******************************************************************************** 
  471. ;
  472. ; Main Part of the Installer (Main Loop) 
  473. ;
  474. ;********************************************************************************
  475. (if (= #PAY 1)
  476.    (message #ThankYou)
  477. )
  478.  
  479. (message #by)
  480.  
  481. ;******************************************************************************** 
  482. ; Check CPU & OS for Right versions 
  483. ;********************************************************************************
  484. (if (< osver 39)  (abort #MinReqOS) )
  485. (if (< cpu 68020) (abort #MinReqCP) )
  486.  
  487. ;******************************************************************************** 
  488. ;
  489. ;ASK DEFAULT GFX board
  490. ;
  491. ;********************************************************************************
  492. (set board (askchoice (choices "Picasso II" "Spectrum" "Piccolo" "Domino"
  493.              (prompt #board)
  494.                      (help "Select a Gfx Board")
  495.                    (default 0)
  496.                  )
  497.           )
  498. )
  499.  
  500. ;******************************************************************************** 
  501. ;
  502. ;ASK if user has REG version of Cybergraphics
  503. ;
  504. ;********************************************************************************
  505. (set #REG  (askchoice (choices #firstTime #PDInstalled  #REGInstalled
  506.                          (prompt #CyberREG)
  507.                      (help "Select a Gfx Board")
  508.                    (default 1)
  509.                  )
  510.            )
  511. )
  512.  
  513. (if (= #REG 2) (set #REG 3))
  514.  
  515. (set REG# #REG)
  516.  
  517. ;******************************************************************************** 
  518. ; Warning Messages 
  519. ;********************************************************************************
  520. (message #SysInfo) 
  521. (message #WillInstall)
  522.  
  523. ;******************************************************************************** 
  524. ; Maksure the Monitor type is set to Custom 
  525. ;********************************************************************************
  526. (if (< MonitorIS 99)
  527.  (
  528.  
  529.   (set PicassoMonSize (getsize "Devs:Monitors/Picasso"))
  530.  
  531.   (if (> PicassoMonSize 25000)
  532.      (       
  533.  
  534.        (if (= board 0) 
  535.          (message #NeedChangeTool) 
  536.        )
  537.  
  538.      )
  539.   )
  540.  
  541.  )
  542. )
  543. ;******************************************************************************** 
  544. ; Ask if to backup the Current OLDER libraries 
  545. ;********************************************************************************
  546.  
  547. (if (= board 0) (set BackDirText "(SYS:Storage/Village)"))
  548. (if (= board 1) (set BackDirText "(SYS:Storage/EGS)"))
  549. (if (= board 2) (set BackDirText "(SYS:Storage/EGS)"))
  550. (if (= board 3) (set BackDirText "(SYS:Storage/Domino)"))
  551.  
  552.  
  553.  
  554. (set keep (askchoice (choices #BackUpFiles #DeleteFiles)
  555.              (prompt (cat #ask-BackOrDelete "\n" BackDirText))
  556.                      (help   #ask-BackOrDelete)
  557.                    (default 0)
  558.       )
  559. )
  560.  
  561. ;******************************************************************************** 
  562. ; If backup TRUE then move all old files to
  563. ;         "SYS:Storage/Village" or "SYS:Storage/EGS"
  564. ;********************************************************************************
  565. (if (= keep 0)
  566.  (
  567.  
  568.  
  569.  
  570.  
  571.  (if (= board 0) ; PICASSO 
  572.  
  573.   (
  574.    (if (< (exists ("SYS:Storage/Village")) 2)
  575.        (makedir ("SYS:Storage/Village") (infos)))  
  576.  
  577.    
  578.    (complete 10)
  579.    (set VillSize (getsize "Libs:vilintuisup.library"))
  580.      (if (> VillSize 14000) 
  581.         (
  582.          (if (> (exists ("libs:vilintuisup.library")) 0)
  583.             (copylib (source "libs:vilintuisup.library") (dest "SYS:Storage/Village"))
  584.          )
  585.         )
  586.      )
  587.  
  588.    (complete 20)
  589.    (if (> (exists ("sys:Expansion/village.library")) 0)
  590.        (copyfiles (source "SYS:Expansion/village.library") (dest "SYS:Storage/Village") (infos))
  591.    )       
  592.  
  593.    (set PicassoMonSize (getsize "Devs:Monitors/Picasso"))
  594.       
  595.    (if (< REG# 3) 
  596.      (
  597.        (complete 30) 
  598.         (if (> PicassoMonSize 25000)
  599.            ( 
  600.               (if (> (exists ("Devs:Monitors/Picasso")) 0)
  601.                   (copyfiles (source "Devs:Monitors/Picasso") (dest "SYS:Storage/Village") (infos))
  602.               ) 
  603.            )
  604.         )
  605.      )
  606.    )
  607.   )
  608.  )
  609.  
  610. ;******************************************************************************** 
  611. (if (= board 1) ; SPECTRUM 
  612.   (
  613.  
  614.    (if (< (exists ("SYS:Storage/EGS")) 2)
  615.        (makedir ("SYS:Storage/EGS") (infos)))  
  616.  
  617.    (complete 5)
  618.  
  619.    (if (> (exists ("SYS:WBStartup/E.S.P.")) 0)
  620.        (copylib (source "SYS:WBStartup/E.S.P.") (dest "SYS:Storage/EGS") (infos))
  621.    )
  622.  
  623.    (complete 10)
  624.    (if (> (exists ("SYS:WBStartup/EGSAmigaDriver")) 0)
  625.        (copyfiles (source "SYS:WBStartup/EGSAmigaDriver") (dest "SYS:Storage/EGS") (infos))
  626.    )       
  627.     
  628.    (complete 15)
  629.    (if (> (exists ("SYS:WBStartup/EGSStartup")) 0)
  630.        (copyfiles (source "SYS:WBStartup/EGSStartup") (dest "SYS:Storage/EGS") (infos))
  631.    )       
  632.   
  633.    (if (< REG# 3) 
  634.      (
  635.   
  636.        (complete 25) 
  637.        (if (> (exists ("Devs:Monitors/Spectrum")) 0)
  638.            (copyfiles (source "Devs:Monitors/Spectrum") (dest "SYS:Storage/EGS") (infos))
  639.        ) 
  640.      )
  641.    )
  642.  
  643.   )
  644. )
  645.   
  646.  
  647. ;******************************************************************************** 
  648. (if (= board 2) ; PICCOLO 
  649.   (
  650.  
  651.    (if (< (exists ("SYS:Storage/EGS")) 2)
  652.        (makedir ("SYS:Storage/EGS") (infos)))  
  653.  
  654.    (complete 5)
  655.  
  656.    (if (> (exists ("SYS:WBStartup/E.S.P.")) 0)
  657.        (copylib (source "SYS:WBStartup/E.S.P.") (dest "SYS:Storage/EGS") (infos))
  658.    )
  659.  
  660.    (complete 10)
  661.    (if (> (exists ("SYS:WBStartup/EGSAmigaDriver")) 0)
  662.        (copyfiles (source "SYS:WBStartup/EGSAmigaDriver") (dest "SYS:Storage/EGS") (infos))
  663.    )       
  664.     
  665.    (complete 15)
  666.    (if (> (exists ("SYS:WBStartup/EGSStartup")) 0)
  667.        (copyfiles (source "SYS:WBStartup/EGSStartup") (dest "SYS:Storage/EGS") (infos))
  668.    )       
  669.   
  670.    (if (> (exists ("SYS:WBStartup/PicoRetarget")) 0)
  671.        (copyfiles (source "SYS:WBStartup/PicoRetarget") (dest "SYS:Storage/EGS") (infos))
  672.    )
  673.  
  674.    (if (< REG# 3) 
  675.      (
  676.        (complete 25)
  677.        (if (> (exists ("devs:monitors/piccolo")) 0)
  678.            (copyfiles (source "devs:monitors/piccolo") (dest "SYS:Storage/EGS") (infos))
  679.        )  
  680.       
  681.      )
  682.    )
  683.  
  684.   )
  685. )
  686.   
  687.  
  688. ;******************************************************************************** 
  689. (if (= board 3) ; DOMINO 
  690.   (
  691.  
  692.    (if (< (exists ("SYS:Storage/Domino")) 2)
  693.        (makedir ("SYS:Storage/Domino") (infos)))  
  694.  
  695.    
  696.   (if (> (exists ("SYS:Expansion/village.library")) 0)
  697.        (copyfiles (source "SYS:Expansion/village.library") (dest "SYS:Storage/Domino") (infos))
  698.   )   
  699.  
  700.  
  701.  
  702.    (if (< REG# 3) 
  703.      (
  704.        (complete 25)
  705.        (if (> (exists ("devs:monitors/Domino")) 0)
  706.            (copyfiles (source "devs:monitors/Domino") (dest "SYS:Storage/Domino") (infos))
  707.        )  
  708.       
  709.      )
  710.    )
  711.  
  712.   )
  713. )
  714.   
  715.  
  716. ;**
  717.  
  718.  
  719.  )
  720. )
  721.  
  722. ;******************************************************************************** 
  723. ; Delete Old files from system
  724. ;********************************************************************************
  725. (complete 50)
  726. (if (= board 0) ;PICASSO
  727.  (
  728.   (delete "sys:Expansion/village.library")
  729.   (delete "sys:Expansion/village.library.info")
  730.   (if (< REG# 3)
  731.      (
  732.        (delete "Devs:Monitors/Picasso")
  733.        (delete "Devs:Monitors/Picasso.info")
  734.      )
  735.   )
  736.  
  737.  )
  738. )
  739.  
  740.  
  741. (if (= board 1) ;SPECTRUM
  742.  (
  743.   (delete "SYS:WBStartup/EGSAmigaDriver")
  744.   (delete "SYS:WBStartup/EGSAmigaDriver.info")
  745.   (delete "SYS:WBStartup/E.S.P.")
  746.   (delete "SYS:WBStartup/E.S.P..info")
  747.   (delete "DEVS:Monitors/EGS")
  748.   (delete "DEVS:Monitors/EGS.info")
  749.   (if (< REG# 3) 
  750.      (
  751.        (delete "Devs:Monitors/Spectrum")
  752.        (delete "Devs:Monitors/Spectrum.info")
  753.      )
  754.   )     
  755.  )
  756. )
  757.  
  758.  
  759. (if (= board 2) ; PICCOLO
  760.  (
  761.   (delete "SYS:WBStartup/EGSAmigaDriver")
  762.   (delete "SYS:WBStartup/EGSAmigaDriver.info")
  763.   (delete "SYS:WBStartup/E.S.P.")
  764.   (delete "SYS:WBStartup/E.S.P..info")
  765.   (delete "DEVS:Monitors/EGS")
  766.   (delete "DEVS:Monitors/EGS.info")
  767.   (delete "SYS:WBStartup/PicoRetarget")
  768.   (delete "SYS:WBStartup/PicoRetarget.info")
  769.   (if (< REG# 3) 
  770.      (
  771.       (delete "Devs:Monitors/Piccolo")
  772.       (delete "Devs:Monitors/Piccolo.info") 
  773.      )
  774.   )     
  775.  )
  776. )
  777.  
  778.  
  779. (if (= board 3) ;DOMINO
  780.  (
  781.   (if (< REG# 3) 
  782.      (
  783.        (delete "DEVS:Monitors/Domino")
  784.        (delete "DEVS:Monitors/Domino.info")
  785.      )
  786.   ) 
  787.  )
  788. )
  789.  
  790.  
  791.  
  792. ;******************************************************************************** 
  793. ; Make ENVARC: for boards and copy files
  794. ;********************************************************************************
  795. (if (= #PAY 1)
  796. (
  797.  
  798.  
  799. (if (= board 0)
  800.  (
  801.   (run "makedir envarc:cybergraphics")
  802.   (run "makedir envarc:cybergraphics/Picasso")
  803.   (run "ConvPicassoModes")
  804.  )
  805. )
  806.  
  807.  
  808.  
  809. (if (= board 1)
  810.  (
  811.   (run "makedir envarc:cybergraphics")
  812.   (run "makedir envarc:cybergraphics/Spectrum")
  813.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Spectrum") (all) ) 
  814.  )
  815. )
  816.  
  817.  
  818. (if (= board 2)
  819.  (
  820.   (run "makedir envarc:cybergraphics")
  821.   (run "makedir envarc:cybergraphics/Piccolo")
  822.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Piccolo") (all) ) 
  823.  )
  824. )
  825.  
  826.  
  827. (if (= board 3)
  828.  (
  829.   (run "makedir envarc:cybergraphics")
  830.   (run "makedir envarc:cybergraphics/Domino")
  831.   (copyfiles (source "modes")  (dest "envarc:cybergraphics/Domino") (all) ) 
  832.  )
  833. )
  834.  
  835.  
  836. )
  837. )
  838.  
  839. ;******************************************************************************** 
  840. ; Copy over new Cyber files to system
  841. ;********************************************************************************
  842. (copylib (source "libs/cybergraphics.library")  (dest "libs:"))
  843. (copylib (source "libs/cyberintuition.library")  (dest "libs:"))
  844. (copylib (source "libs/cyberlayers.library")  (dest "libs:"))
  845. (copylib (source "libs/vilintuisup.library")  (dest "libs:")) 
  846.  
  847.  
  848. (if (< REG# 3) 
  849.      (
  850.        (if (= board 0)
  851.           (copyfiles (source "devs/monitors/Picasso")  (dest "devs:monitors") (infos) )    
  852.        )
  853.  
  854.        (if (= board 1)
  855.           (copyfiles (source "devs/monitors/Spectrum")  (dest "devs:monitors") (infos) )    
  856.        )
  857.  
  858.        (if (= board 2)
  859.           (copyfiles (source "devs/monitors/Piccolo")  (dest "devs:monitors") (infos) )    
  860.        )
  861.  
  862.        (if (= board 3)
  863.           (copyfiles (source "devs/monitors/Domino")  (dest "devs:monitors") (infos) )    
  864.        )
  865.      )
  866. )
  867.  
  868. ;******************************************************************************** 
  869. ; Ask which modefile to install (in case of piccolo or spectrum)
  870. ;********************************************************************************
  871. (if (= #PAY 1)
  872. (
  873.  
  874. (if (> board 0)
  875.  (
  876.  
  877.    (set modefile (askchoice    (choices #15KHZ #31KHZ #35KHZ #38KHZ #48KHZ #57KHZ #64KHZ)
  878.                            (prompt #ask-MODEFILE)
  879.                            (help   #ask-MODEFILE)
  880.                          (default 0)
  881.              )
  882.    )
  883.  
  884.    (if (= board 1)
  885.       (
  886.         (if (= modefile 0) (run "setenv SpectrumMonitor Monitor-15khz") )
  887.         (if (= modefile 1) (run "setenv SpectrumMonitor Monitor-31khz") )
  888.         (if (= modefile 2) (run "setenv SpectrumMonitor Monitor-35khz") )
  889.         (if (= modefile 3) (run "setenv SpectrumMonitor Monitor-38khz") )
  890.         (if (= modefile 4) (run "setenv SpectrumMonitor Monitor-48khz") ) 
  891.         (if (= modefile 5) (run "setenv SpectrumMonitor Monitor-57khz") )
  892.         (if (= modefile 6) (run "setenv SpectrumMonitor Monitor-64khz") )
  893.         (copyfiles (source "env:SpectrumMonitor")  (dest "envarc:") )    
  894.       )
  895.    )
  896.  
  897.    (if (= board 2)
  898.       (
  899.         (if (= modefile 0) (run "setenv PiccoloMonitor Monitor-15khz") )
  900.         (if (= modefile 1) (run "setenv PiccoloMonitor Monitor-31khz") )
  901.         (if (= modefile 2) (run "setenv PiccoloMonitor Monitor-35khz") )
  902.         (if (= modefile 3) (run "setenv PiccoloMonitor Monitor-38khz") )
  903.         (if (= modefile 4) (run "setenv PiccoloMonitor Monitor-48khz") )
  904.         (if (= modefile 5) (run "setenv PiccoloMonitor Monitor-57khz") )
  905.         (if (= modefile 6) (run "setenv PiccoloMonitor Monitor-64khz") )
  906.         (copyfiles (source "env:PiccoloMonitor")  (dest "envarc:") )
  907.       )
  908.    )
  909.  
  910.    (if (= board 3)
  911.       (
  912.         (if (= modefile 0) (run "setenv DominoMonitor Monitor-15khz") )
  913.         (if (= modefile 1) (run "setenv DominoMonitor Monitor-31khz") )
  914.         (if (= modefile 2) (run "setenv DominoMonitor Monitor-35khz") )
  915.         (if (= modefile 3) (run "setenv DominoMonitor Monitor-38khz") )
  916.         (if (= modefile 4) (run "setenv DominoMonitor Monitor-48khz") )
  917.         (if (= modefile 5) (run "setenv DominoMonitor Monitor-57khz") )
  918.         (if (= modefile 6) (run "setenv DominoMonitor Monitor-64khz") )
  919.         (copyfiles (source "env:DominoMonitor")  (dest "envarc:") )
  920.       )
  921.    )
  922.    
  923.  
  924.  )
  925. )
  926.  
  927.  
  928. )
  929. )
  930.  
  931. ;******************************************************************************** 
  932. ; ASK to set the 2 ENV modes!
  933. ;********************************************************************************
  934. (if (= #PAY 1)
  935. (
  936.  
  937.  
  938. (set cpup2c   (askchoice    (choices "Yes" "No")
  939.                            (prompt #cpup2c)
  940.                            (help   #cpup2c)
  941.                          (default 0)
  942.           )
  943. )
  944.  
  945.  
  946. (if (= cpup2c 0)
  947.    (
  948.      (run "setenv cybergraphics/CPUP2C 1")
  949.      (copyfiles (source "ENV:cybergraphics/CPUP2C") (dest "ENVARC:cybergraphics") )
  950.    )
  951. )
  952.  
  953.  
  954. (set HIRESCRSR (askchoice    (choices "Yes" "No")
  955.                            (prompt #hirescrsr)
  956.                            (help   #hirescrsr)
  957.                          (default 0)
  958.            )
  959. )
  960.  
  961.  
  962. (if (= HIRESCRSR 0)
  963.    (
  964.      (run "setenv cybergraphics/HIRESCRSR 1")
  965.      (copyfiles (source "ENV:cybergraphics/HIRESCRSR") (dest "ENVARC:cybergraphics") )
  966.    )
  967. )
  968.  
  969.  
  970.  
  971.  
  972. )
  973. )
  974.  
  975.  
  976. ;******************************************************************************** 
  977. ; ReG version with all the drivers!
  978. ;********************************************************************************
  979.    
  980.    (set RegDriver (askoptions (choices "Maxon Cinema 4D" "PhotoWorx" "Photogenics"
  981.                                        "Real3D Library" "ADPro 2.5.0" "ImageFX" )
  982.                     (prompt #ask-driver)
  983.                   (help   #ask-driver)
  984.                   (default 0)
  985.           )
  986.    )
  987.  
  988.  
  989.   
  990.    (if (IN RegDriver 0)
  991.       (
  992.        (copyfiles (prompt #where-MC4D)
  993.               (source "drivers/cinema4d/cinemaausgabe.library")
  994.               (dest   (askdir (prompt #where-MC4D)
  995.                       (help   #where-MC4D)
  996.                       (default "libs:")
  997.                   )
  998.               )
  999.               (optional) 
  1000.        )
  1001.       )
  1002.    )
  1003.  
  1004.  
  1005.    (if (IN RegDriver 1)
  1006.       (
  1007.        (copyfiles (prompt #where-PHOTOW)
  1008.               (source "drivers/photoworx/cyber.viewer")
  1009.               (dest   (askdir (prompt #where-PHOTOW)
  1010.                       (help   #where-PHOTOW)
  1011.                       (default "Work:")
  1012.                   )
  1013.               )
  1014.               (optional) 
  1015.        )
  1016.       )
  1017.    )
  1018.  
  1019.  
  1020.    (if (IN RegDriver 2)
  1021.       (
  1022.        (copyfiles (prompt #where-PHOTOG)
  1023.               (source "drivers/photogenics/cybergraphics.gio")
  1024.               (dest   (askdir (prompt #where-PHOTOG)
  1025.                       (help   #where-PHOTOG)
  1026.                       (default "Work:")
  1027.                   )
  1028.               )
  1029.               (optional) 
  1030.        )
  1031.       )
  1032.    )
  1033.  
  1034.  
  1035.    (if (IN RegDriver 3)
  1036.       (
  1037.        (copyfiles (prompt #where-REAL)
  1038.               (source "drivers/real3d/cybergfx_r3d.library")
  1039.               (dest   (askdir (prompt #where-REAL)
  1040.                       (help   #where-REAL)
  1041.                       (default "libs:")
  1042.                   )
  1043.               )
  1044.               (optional) 
  1045.        )
  1046.       )
  1047.    )
  1048.  
  1049.  
  1050.    (if (IN RegDriver 4)
  1051.       (
  1052.        (copyfiles (prompt #where-ADPRO)
  1053.               (source "drivers/adpro/CyBERgraphics")
  1054.               (dest   (askdir (prompt #where-ADPRO)
  1055.                       (help   #where-ADPRO)
  1056.                       (default "ADPRO:Savers2")
  1057.                   )
  1058.               )
  1059.               (optional) 
  1060.        )
  1061.       )
  1062.    )
  1063.  
  1064.    
  1065.    (if (IN RegDriver 5)
  1066.       (
  1067.        (if (< cpu 68030) (set IFXVer "CyberGraphics.000")) 
  1068.        (if (> cpu 68020) (set IFXVer "CyberGraphics.030")) 
  1069.        (copyfiles (prompt #where-IFX)
  1070.               (source (cat "drivers/ImageFX/" IFXVer))
  1071.               (dest   (askdir (prompt #where-IFX)
  1072.                       (help   #where-IFX)
  1073.                       (default "ImageFX:Modules/Render")
  1074.                   )
  1075.               )
  1076.               (optional) 
  1077.        )
  1078.       )
  1079.    )
  1080.  
  1081.  
  1082.  
  1083. ;******************************************************************************** 
  1084. ; Ask to install DEVDOCS, Versions, Order, guide
  1085. ;********************************************************************************
  1086. (set ToDo       (askoptions (choices #order #guide #devdocs #versions)
  1087.                 (prompt #wishtoinstall)
  1088.                 (help #wishtoinstall)
  1089.                 (default 63)
  1090.         )
  1091. )
  1092.  
  1093. ;******************************************************************************** 
  1094. ; Ask WHERE to install DEVDOCS, Versions, Order, guide
  1095. ;********************************************************************************
  1096. (if (<> ToDo 0)
  1097.  (
  1098.  
  1099.   (set CyberDrawer (askdir (prompt #WhereStuffDir)
  1100.                (help   #WhereStuffDir)
  1101.                (default "Work:CyberGraphics")
  1102.            )  
  1103.   )
  1104.  
  1105.  
  1106.   (if (< (exists (tackon CyberDrawer "CyberGraphics")) 2)
  1107.       (makedir (tackon CyberDrawer "CyberGraphics") (infos))
  1108.         
  1109.   )
  1110.     
  1111.  
  1112.   (set where (tackon CyberDrawer "CyberGraphics"))
  1113.   (set @default-dest CyberDrawer)
  1114.  
  1115. ;******************************************************************************** 
  1116. ; COPY selected stuff!
  1117. ;********************************************************************************
  1118.   (if (IN ToDo 0)
  1119.    (
  1120.       
  1121.     (if (= LAN 0)  
  1122.       (copyfiles (source "Bestellformular")  (dest where) (infos) )    
  1123.     )
  1124.    
  1125.     (if (= LAN 1)
  1126.       (copyfiles (source "Orderform")  (dest where) (infos) )
  1127.     )       
  1128.      
  1129.    )
  1130.   )
  1131.  
  1132.  
  1133.  
  1134.   (if (IN ToDo 1) 
  1135.    (  
  1136.  
  1137.     (if (= LAN 0)  
  1138.       (copyfiles (source "CyBERgfx_D.guide")  (dest where) (infos) (newname "CyberGfx.guide"))    
  1139.     )
  1140.    
  1141.     (if (= LAN 1)
  1142.       (copyfiles (source "CyBERgfx_E.guide")  (dest where) (infos) (newname "CyberGfx.guide"))    
  1143.     )        
  1144.  
  1145.    )
  1146.   )
  1147.  
  1148.  
  1149.  
  1150.   (if (IN ToDo 2) 
  1151.    (  
  1152.      (if (< (exists (tackon where "DevDocs")) 2)
  1153.           (makedir (tackon where "DevDocs") (infos))
  1154.      )
  1155.      (copyfiles (source "devdocs")  (dest (tackon where "DevDocs")) (all) ) 
  1156.    )
  1157.   )
  1158.  
  1159.  
  1160.  
  1161.   (if (IN ToDo 3) 
  1162.    (  
  1163.      (copyfiles (source "Versions")  (dest where) (infos) )    
  1164.    )
  1165.   )
  1166.  
  1167.  
  1168.   
  1169.  
  1170.  
  1171.  )
  1172. )
  1173.  
  1174.  
  1175. ;******************************************************************************** 
  1176. ; How to get the REAL version and what coming!
  1177. ;********************************************************************************
  1178.  
  1179. (if (= #PAY 0)
  1180.   (message #Restrictions)
  1181. )
  1182. (message #Comming)
  1183. (message #Updates)
  1184. (message #REGtext)
  1185.  
  1186.  
  1187.  
  1188.